|
68
|
I have a hierarchy and I need to filter only root items that match, with thier childs
ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exLinesAtRoot;
ComboBox1->FilterInclude = Excomboboxlib_tlb::FilterIncludeEnum::exRootsWithChilds;
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Column");
var_Column->DisplayFilterButton = true;
var_Column->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exFilter;
var_Column->Filter = L"R1";
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("R1"));
var_Items->InsertItem(h,TNoParam(),TVariant("C1"));
var_Items->InsertItem(h,TNoParam(),TVariant("C2"));
var_Items->set_ExpandItem(h,true);
h = var_Items->AddItem(TVariant("R2"));
var_Items->InsertItem(h,TNoParam(),TVariant("C1"));
var_Items->InsertItem(h,TNoParam(),TVariant("C2"));
ComboBox1->ApplyFilter();
|
|
66
|
I have a hierarchy and I need to filter only parent items that match, including thier childs
ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exLinesAtRoot;
ComboBox1->FilterInclude = Excomboboxlib_tlb::FilterIncludeEnum::exItemsWithChilds;
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Column");
var_Column->DisplayFilterButton = true;
var_Column->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exFilter;
var_Column->Filter = L"R1";
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("R1"));
var_Items->InsertItem(h,TNoParam(),TVariant("C1"));
var_Items->InsertItem(h,TNoParam(),TVariant("C2"));
var_Items->set_ExpandItem(h,true);
h = var_Items->AddItem(TVariant("R2"));
var_Items->InsertItem(h,TNoParam(),TVariant("C1"));
var_Items->InsertItem(h,TNoParam(),TVariant("C2"));
ComboBox1->ApplyFilter();
|
|
558
|
I do not like to specify the item padding for every column I add. The question is how can I do it automatically
ComboBox1->BeginUpdate();
ComboBox1->AttachTemplate(TVariant("handle AddColumn(Column){Column{Def(48)=8;Def(49)=8;AllowDragging=False;AllowSizing = True}}"));
ComboBox1->HeaderAppearance = Excomboboxlib_tlb::AppearanceEnum::Etched;
ComboBox1->DrawGridLines = Excomboboxlib_tlb::GridLinesEnum::exAllLines;
ComboBox1->GridLineStyle = Excomboboxlib_tlb::GridLinesStyleEnum::exGridLinesVSolid;
Excomboboxlib_tlb::IColumnsPtr var_Columns = ComboBox1->Columns;
var_Columns->Add(L"Item");
Excomboboxlib_tlb::IColumnPtr var_Column = var_Columns->Add(L"Pos");
var_Column->Position = 0;
var_Column->Width = 32;
var_Column->AllowSizing = false;
var_Column->FormatColumn = L"1 index ``";
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("Item A"));
var_Items->AddItem(TVariant("Item B"));
var_Items->AddItem(TVariant("Item C"));
ComboBox1->EndUpdate();
|
|
472
|
I cannot seem to get autosearch=1 (contains) in the column object to search properly. It still only finds items that start with the typed character. I want to it look to see if the typed character(s) are contained in the item. I Can't seem to get this to work
ComboBox1->BeginUpdate();
ComboBox1->Style = Excomboboxlib_tlb::StyleEnum::DropDownList;
ComboBox1->HeaderVisible = false;
ComboBox1->AutoSearch = true;
ComboBox1->AutoDropDown = true;
ComboBox1->IntegralHeight = true;
ComboBox1->Columns->Add(L"Default")->AutoSearch = Excomboboxlib_tlb::AutoSearchEnum::exContains;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("This is a bit of text"));
var_Items->AddItem(TVariant("This is a another text"));
ComboBox1->EndUpdate();
|
|
94
|
I can't scroll to the end of the data. What can I do
ComboBox1->ScrollBySingleLine = true;
ComboBox1->DrawGridLines = Excomboboxlib_tlb::GridLinesEnum::exRowLines;
ComboBox1->Columns->Add(L"Column");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->set_ItemHeight(var_Items->AddItem(TVariant(0)),13);
ComboBox1->PutItems(ComboBox1->GetItems(TVariant(0)),TNoParam());
Excomboboxlib_tlb::IItemsPtr var_Items1 = ComboBox1->Items;
var_Items1->set_ItemHeight(var_Items1->AddItem(TVariant(1)),26);
ComboBox1->PutItems(ComboBox1->GetItems(TVariant(0)),TNoParam());
Excomboboxlib_tlb::IItemsPtr var_Items2 = ComboBox1->Items;
var_Items2->set_ItemHeight(var_Items2->AddItem(TVariant(2)),36);
ComboBox1->PutItems(ComboBox1->GetItems(TVariant(0)),TNoParam());
Excomboboxlib_tlb::IItemsPtr var_Items3 = ComboBox1->Items;
var_Items3->set_ItemHeight(var_Items3->AddItem(TVariant(3)),48);
ComboBox1->PutItems(ComboBox1->GetItems(TVariant(0)),TNoParam());
|
|
469
|
I am using the ScrollWidth/ScrollHeight property on 0 to hide the control's scroll bars, the question is that the drop down button is disappearing. What can be done so I can still show the drop down button
ComboBox1->BeginUpdate();
ComboBox1->LabelHeight = 40;
ComboBox1->ScrollWidth = 0;
ComboBox1->ScrollHeight = 0;
ComboBox1->DropDownButtonWidth = 40;
ComboBox1->EndUpdate();
|
|
514
|
I am using filter prompt feature, and also column's filter, just wondering if possible to compact displaying the filter bar so it won't show on multiple lines
ComboBox1->BeginUpdate();
ComboBox1->Columns->Add(L"Item")->DisplayFilterButton = true;
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Pos");
var_Column->AllowSizing = false;
var_Column->AllowSort = false;
var_Column->Width = 32;
var_Column->FormatColumn = L"1 apos ``";
var_Column->Position = 0;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("Item A"));
var_Items->AddItem(TVariant("Item B"));
var_Items->AddItem(TVariant("Item C"));
ComboBox1->FilterBarFont = (IFontDisp*)(ComboBox1->Font);
ComboBox1->FilterBarCaption = L"`<r><i><fgcolor=808080><upline><solidline><sha ;;0>` + value";
ComboBox1->FilterBarPromptPattern = L"B";
ComboBox1->FilterBarPromptVisible = Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarCompact | Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarSingleLine | Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarVisible | Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible;
Excomboboxlib_tlb::IColumnPtr var_Column1 = ComboBox1->Columns->get_Item(TVariant(0));
var_Column1->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exFilter;
var_Column1->Filter = L"Item A|Item B";
ComboBox1->ApplyFilter();
ComboBox1->EndUpdate();
|
|
550
|
I am calling Value to change the selected value, but the selection is not visible, unless I scroll to it
ComboBox1->BeginUpdate();
ComboBox1->ColumnAutoResize = false;
/*
Select the Component\Import Component...\Import a Type Library,
to import the following Type Library:
Microsoft ActiveX Data Objects 6.1 Library
TypeLib: msado15.dll
to define the namespace: Adodb_tlb
*/
//#include "ADODB_TLB.h"
Adodb_tlb::_RecordsetPtr rs = Variant::CreateObject(L"ADODB.Recordset");
rs->Open(TVariant("Orders"),TVariant("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Program Files\\Exontrol\\ExComboBox\\Sample\\Access\\sample.accdb"),Adodb_tlb::CursorTypeEnum::adOpenKeyset,Adodb_tlb::LockTypeEnum::adLockReadOnly,0);
ComboBox1->DataSource = (IDispatch*)rs;
ComboBox1->set_Value(TVariant(10311));
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->EnsureVisibleItem(var_Items->FocusItem);
ComboBox1->EndUpdate();
|
|
146
|
I've seen that you can change the visual appearance for the scroll bar. How can I do that
ComboBox1->VisualAppearance->Add(1,TVariant("c:\\exontrol\\images\\normal.ebn"));
ComboBox1->VisualAppearance->Add(2,TVariant("c:\\exontrol\\images\\pushed.ebn"));
ComboBox1->VisualAppearance->Add(3,TVariant("c:\\exontrol\\images\\hot.ebn"));
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exSBtn] = 0x1000000;
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exSBtnP] = 0x2000000;
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exSBtnH] = 0x3000000;
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exHSBack] = RGB(240,240,240);
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exVSBack] = RGB(240,240,240);
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exScrollHoverAll | Excomboboxlib_tlb::BackgroundPartEnum::exDateScrollThumb] = RGB(240,240,240);
ComboBox1->Columns->Add(L"S")->Width = 32;
ComboBox1->Columns->Add(L"Level 1")->set_LevelKey(TVariant(1));
ComboBox1->Columns->Add(L"Level 2")->set_LevelKey(TVariant(1));
ComboBox1->Columns->Add(L"Level 3")->set_LevelKey(TVariant(1));
ComboBox1->Columns->Add(L"E1")->Width = 32;
ComboBox1->Columns->Add(L"E2")->Width = 32;
ComboBox1->Columns->Add(L"E3")->Width = 32;
ComboBox1->Columns->Add(L"E4")->Width = 32;
ComboBox1->ColumnAutoResize = false;
|
|
119
|
I've seen that the width of the tooltip is variable. Can I make it larger
ComboBox1->ToolTipWidth = 328;
ComboBox1->Columns->Add(L"tootip")->ToolTip = L"this is a tooltip that should be very very very very very very very long";
|
|
2
|
I've added a single column, but it is displayed only on a part of the control. Is there something I can do so the column will be fully displayed on the control
ComboBox1->Columns->Add(L"ColumnName");
ComboBox1->Items->AddItem(TVariant("Item 1"));
ComboBox1->Items->AddItem(TVariant("Item 2"));
|
|
473
|
How would you clear the displayed selection for style DropDownList. So if a user selects or searches a value in a style DropDownList, I want to know if I can reset the control back to an empty selection
// DropUp event - Occurs when the drop-down portion of the control is hidden.
void __fastcall TForm1::ComboBox1DropUp(TObject *Sender)
{
ComboBox1->set_Value(TVariant(""));
}
// SelectionChanged event - Fired after a new item has been selected.
void __fastcall TForm1::ComboBox1SelectionChanged(TObject *Sender)
{
OutputDebugString( L"You selected: " );
OutputDebugString( PChar(ComboBox1->get_Value()) );
}
ComboBox1->BeginUpdate();
ComboBox1->Style = Excomboboxlib_tlb::StyleEnum::DropDownList;
ComboBox1->HeaderVisible = false;
ComboBox1->AutoSearch = true;
ComboBox1->AutoDropDown = true;
ComboBox1->IntegralHeight = true;
ComboBox1->Columns->Add(L"Default")->AutoSearch = Excomboboxlib_tlb::AutoSearchEnum::exContains;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("This is a bit of text"));
var_Items->AddItem(TVariant("This is a another text"));
var_Items->DefaultItem = var_Items->InsertItem(TNoParam(),TNoParam(),TVariant(""));
var_Items->set_ItemPosition(0,0);
var_Items->set_SortableItem(0,false);
ComboBox1->EndUpdate();
|
|
560
|
How I can programmatically select a row (with regular combobox I can set the ListIndex right up to Listcount -1)
ComboBox1->BeginUpdate();
ComboBox1->Columns->Add(L"Column");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("Item 1"));
var_Items->AddItem(TVariant("Item 2"));
var_Items->AddItem(TVariant("Item 3"));
var_Items->set_SelectItem(var_Items->get_ItemByIndex(1),true);
ComboBox1->EndUpdate();
|
|
561
|
How I can programmatically select a row (method 2)
ComboBox1->BeginUpdate();
ComboBox1->Columns->Add(L"Column");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("Item 1"));
var_Items->AddItem(TVariant("Item 2"));
var_Items->AddItem(TVariant("Item 3"));
ComboBox1->set_Value(TVariant("Item 2"));
ComboBox1->EndUpdate();
|
|
88
|
How do lock / fix some columns to the control, so I can see them all the time, event if I scroll the columns
ComboBox1->CountLockedColumns = 1;
ComboBox1->BackColorLock = RGB(240,240,240);
ComboBox1->ColumnAutoResize = false;
ComboBox1->Columns->Add(L"Locked")->Width = 128;
ComboBox1->Columns->Add(L"Un-Locked 1")->Width = 128;
ComboBox1->Columns->Add(L"Un-Locked 2")->Width = 128;
ComboBox1->Columns->Add(L"Un-Locked 3")->Width = 128;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("locked"))),TVariant(1),TVariant("unlocked"));
|
|
299
|
How do I vertically align a cell
ComboBox1->DrawGridLines = Excomboboxlib_tlb::GridLinesEnum::exRowLines;
ComboBox1->Columns->Add(L"MultipleLine")->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellSingleLine,TVariant(false));
ComboBox1->Columns->Add(L"VAlign");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("This is a bit of long text that should break the line"));
var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant("top"));
var_Items->set_CellVAlignment(TVariant(h),TVariant(1),Excomboboxlib_tlb::VAlignmentEnum::exTop);
h = var_Items->AddItem(TVariant("This is a bit of long text that should break the line"));
var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant("middle"));
var_Items->set_CellVAlignment(TVariant(h),TVariant(1),Excomboboxlib_tlb::VAlignmentEnum::exMiddle);
h = var_Items->AddItem(TVariant("This is a bit of long text that should break the line"));
var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant("bottom"));
var_Items->set_CellVAlignment(TVariant(h),TVariant(1),Excomboboxlib_tlb::VAlignmentEnum::exBottom);
|
|
84
|
How do I use my own icons for my radio buttons
ComboBox1->Images(TVariant(String("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq") +
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="));
ComboBox1->RadioImage[false] = 1;
ComboBox1->RadioImage[true] = 2;
ComboBox1->Columns->Add(L"Radio")->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellHasRadioButton,TVariant(true));
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("Radio 1"));
var_Items->set_CellState(TVariant(var_Items->AddItem(TVariant("Radio 2"))),TVariant(0),1);
var_Items->AddItem(TVariant("Radio 3"));
|
|
83
|
How do I use my own icons for checkbox cells
ComboBox1->Images(TVariant(String("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq") +
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="));
ComboBox1->CheckImage[Excomboboxlib_tlb::CheckStateEnum::Unchecked] = 1;
ComboBox1->CheckImage[Excomboboxlib_tlb::CheckStateEnum::Checked] = 2;
ComboBox1->Columns->Add(L"Check")->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("Check 1"));
var_Items->set_CellState(TVariant(var_Items->AddItem(TVariant("Check 2"))),TVariant(0),1);
|
|
479
|
How do I unselect/deselect the item (Simple style)
ComboBox1->BeginUpdate();
ComboBox1->Style = Excomboboxlib_tlb::StyleEnum::Simple;
ComboBox1->Columns->Add(L"Def");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("Item 1"));
var_Items->AddItem(TVariant("Item 2"));
var_Items->AddItem(TVariant("Item 3"));
var_Items->AddItem(TVariant("Item 3"));
ComboBox1->SearchColumnIndex = 0;
ComboBox1->set_Value(TVariant("Item 2"));
Excomboboxlib_tlb::IItemsPtr var_Items1 = ComboBox1->Items;
var_Items1->set_SelectItem(var_Items1->FocusItem,false);
ComboBox1->EndUpdate();
|
|
478
|
How do I unselect/deselect the item (DropDownList style)
ComboBox1->BeginUpdate();
ComboBox1->Style = Excomboboxlib_tlb::StyleEnum::DropDown;
ComboBox1->Columns->Add(L"Def");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("Item 1"));
var_Items->AddItem(TVariant("Item 2"));
var_Items->AddItem(TVariant("Item 3"));
var_Items->AddItem(TVariant("Item 3"));
ComboBox1->SearchColumnIndex = 0;
ComboBox1->set_Value(TVariant("Item 2"));
Excomboboxlib_tlb::IItemsPtr var_Items1 = ComboBox1->Items;
var_Items1->set_SelectItem(var_Items1->FocusItem,false);
ComboBox1->EndUpdate();
|
|
477
|
How do I unselect/deselect the item (DropDown style)
ComboBox1->BeginUpdate();
ComboBox1->Style = Excomboboxlib_tlb::StyleEnum::DropDown;
ComboBox1->Columns->Add(L"Def");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("Item 1"));
var_Items->AddItem(TVariant("Item 2"));
var_Items->AddItem(TVariant("Item 3"));
var_Items->AddItem(TVariant("Item 3"));
ComboBox1->SearchColumnIndex = 0;
ComboBox1->set_Value(TVariant("Item 2"));
Excomboboxlib_tlb::IItemsPtr var_Items1 = ComboBox1->Items;
var_Items1->set_SelectItem(var_Items1->FocusItem,false);
ComboBox1->EndUpdate();
|
|
288
|
How do I unselect an item
ComboBox1->Columns->Add(L"Default");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("Root 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->set_ExpandItem(h,true);
var_Items->set_SelectItem(h,false);
|
|
155
|
How do I underline the numbers greater than a value
ComboBox1->ConditionalFormats->Add(L"%0 >= 10",TNoParam())->Underline = true;
ComboBox1->Columns->Add(L"Numbers");
ComboBox1->Items->AddItem(TVariant(1));
ComboBox1->Items->AddItem(TVariant(2));
ComboBox1->Items->AddItem(TVariant(10));
ComboBox1->Items->AddItem(TVariant(20));
|
|
244
|
How do I underline an item
ComboBox1->Columns->Add(L"Default");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->set_ItemUnderline(var_Items->AddItem(TVariant("underline")),true);
|
|
245
|
How do I underline a cell or an item
ComboBox1->Columns->Add(L"Default");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->set_CellCaptionFormat(TVariant(var_Items->AddItem(TVariant("gets <u>underline</u> only a portion of text"))),TVariant(0),Excomboboxlib_tlb::CaptionFormatEnum::exHTML);
|
|
246
|
How do I underline a cell
ComboBox1->Columns->Add(L"Default");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->set_CellUnderline(TVariant(var_Items->AddItem(TVariant("underline"))),TVariant(0),true);
|
|
325
|
How do I turn off the auto complete feature
ComboBox1->AutoComplete = false;
ComboBox1->Columns->Add(L"Column");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("Item 3"));
var_Items->AddItem(TVariant("Item 1"));
var_Items->AddItem(TVariant("Item 2"));
|
|
328
|
How do I specify the width of the drop down window
ComboBox1->WidthList[TNoParam()] = 100;
ComboBox1->AllowSizeGrip = true;
ComboBox1->Columns->Add(L"Column");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("Item 3"));
var_Items->AddItem(TVariant("Item 1"));
var_Items->AddItem(TVariant("Item 2"));
|
|
327
|
How do I specify the minimum width of the drop down window
ComboBox1->MinWidthList = 100;
ComboBox1->AllowSizeGrip = true;
ComboBox1->Columns->Add(L"Column");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("Item 3"));
var_Items->AddItem(TVariant("Item 1"));
var_Items->AddItem(TVariant("Item 2"));
|
|
329
|
How do I specify the minimum height of the drop down window
ComboBox1->MinHeightList = 100;
ComboBox1->AllowSizeGrip = true;
ComboBox1->Columns->Add(L"Column");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("Item 3"));
var_Items->AddItem(TVariant("Item 1"));
var_Items->AddItem(TVariant("Item 2"));
|
|
92
|
How do I specify the indentation of the child items relative to their parents
ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exGroupLinesAtRoot;
ComboBox1->Indent = 11;
ComboBox1->Columns->Add(L"Column");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("Root 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->set_ExpandItem(h,true);
h = var_Items->AddItem(TVariant("Root 2"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child"));
|
|
330
|
How do I specify the height of the drop down window
ComboBox1->HeightList[TNoParam()] = 400;
ComboBox1->MinWidthList = 100;
ComboBox1->AllowSizeGrip = true;
ComboBox1->Columns->Add(L"Column");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("Item 3"));
var_Items->AddItem(TVariant("Item 1"));
var_Items->AddItem(TVariant("Item 2"));
|
|
338
|
How do I specify the height of the control's label
ComboBox1->LabelHeight = 34;
ComboBox1->Columns->Add(L"Column");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("Item 3"));
var_Items->AddItem(TVariant("Item 1"));
var_Items->AddItem(TVariant("Item 2"));
|
|
93
|
How do I specify the column where the tree lines / hierarchy are shown
ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exGroupLinesAtRoot;
ComboBox1->TreeColumnIndex = 1;
ComboBox1->Columns->Add(L"Column 1");
ComboBox1->Columns->Add(L"Column 2");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("Root 1.1"));
var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant("Root 1.2"));
var_Items->set_CellCaption(TVariant(var_Items->InsertItem(h,TNoParam(),TVariant("Child 1.1"))),TVariant(1),TVariant("Child 1.2"));
var_Items->set_CellCaption(TVariant(var_Items->InsertItem(h,TNoParam(),TVariant("Child 2.1"))),TVariant(1),TVariant("Child 2.2"));
var_Items->set_ExpandItem(h,true);
h = var_Items->AddItem(TVariant("Root 2.1"));
var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant("Root 2.2"));
var_Items->set_CellCaption(TVariant(var_Items->InsertItem(h,TNoParam(),TVariant("Child 1.1"))),TVariant(1),TVariant("Child 1.2"));
|
|
483
|
How do I sort the index column as numeric
// InsertItem event - Occurs after a new item has been inserted to Items collection.
void __fastcall TForm1::ComboBox1InsertItem(TObject *Sender, Excomboboxlib_tlb::HITEM Item)
{
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->set_CellData(TVariant(Item),TVariant(1),TVariant(var_Items->get_ItemToIndex(Item)));
}
ComboBox1->BeginUpdate();
ComboBox1->DrawGridLines = Excomboboxlib_tlb::GridLinesEnum::exAllLines;
ComboBox1->ColumnAutoResize = true;
ComboBox1->ShowFocusRect = false;
ComboBox1->SingleEdit = true;
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Next");
var_Column->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellPaddingLeft,TVariant(4));
var_Column->set_Def(Excomboboxlib_tlb::DefColumnEnum::exHeaderPaddingLeft,TVariant(4));
Excomboboxlib_tlb::IColumnPtr var_Column1 = ComboBox1->Columns->Add(L"Index");
var_Column1->AllowSizing = false;
var_Column1->Width = 48;
var_Column1->FormatColumn = L"(((0 := (1 index ``)) mod 3) case ( default: ``; 0 : `<r><fgcolor=B0B0B0>`; 1: ``; 2 : `<c><fgcolor=808080>` )) + str(=:0)";
var_Column1->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellCaptionFormat,TVariant(1));
var_Column1->SortType = Excomboboxlib_tlb::SortTypeEnum::SortUserData;
var_Column1->Position = 0;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("Item 1"));
var_Items->AddItem(TVariant("Item 2"));
var_Items->AddItem(TVariant("Item 3"));
var_Items->AddItem(TVariant("Item 4"));
var_Items->AddItem(TVariant("Item 5"));
var_Items->AddItem(TVariant("Item 6"));
var_Items->AddItem(TVariant("Item 7"));
var_Items->AddItem(TVariant("Item 8"));
var_Items->AddItem(TVariant("Item 9"));
var_Items->AddItem(TVariant("Item 10"));
ComboBox1->EndUpdate();
|
|
229
|
How do I sort the child items
ComboBox1->Columns->Add(L"Default");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("Root"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->set_ExpandItem(h,true);
var_Items->SortChildren(h,TVariant(0),false);
|
|
79
|
How do I sort descending a column, and put the sorting icon in the column's header
ComboBox1->Columns->Add(L"Column");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("Item 1"));
var_Items->AddItem(TVariant("Item 2"));
var_Items->AddItem(TVariant("Item 3"));
ComboBox1->Columns->get_Item(TVariant(0))->SortOrder = Excomboboxlib_tlb::SortOrderEnum::SortDescending;
|
|
78
|
How do I sort ascending a column, and put the sorting icon in the column's header
ComboBox1->Columns->Add(L"Column");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("Item 3"));
var_Items->AddItem(TVariant("Item 1"));
var_Items->AddItem(TVariant("Item 2"));
ComboBox1->Columns->get_Item(TVariant(0))->SortOrder = Excomboboxlib_tlb::SortOrderEnum::SortAscending;
|
|
72
|
How do I sort a column by numbers
ComboBox1->Columns->Add(L"desc")->SortType = Excomboboxlib_tlb::SortTypeEnum::SortNumeric;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant(1));
var_Items->AddItem(TVariant(5));
var_Items->AddItem(TVariant(10));
var_Items->SortChildren(0,TVariant(0),false);
|
|
116
|
How do I show the tooltip quicker
ComboBox1->ToolTipDelay = 1;
ComboBox1->Columns->Add(L"tootip")->ToolTip = L"this is a tooltip assigned to a column";
|
|
181
|
How do I show or hide the sorting icons, but still need sorting
ComboBox1->Columns->Add(L"Sorted")->SortOrder = Excomboboxlib_tlb::SortOrderEnum::SortAscending;
ComboBox1->Columns->get_Item(TVariant(0))->DisplaySortIcon = false;
|
|
194
|
How do I show buttons for all cells in the column
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Button");
var_Column->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellHasButton,TVariant(true));
var_Column->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellButtonAutoWidth,TVariant(true));
ComboBox1->Items->AddItem(TVariant(" Button 1 "));
ComboBox1->Items->AddItem(TVariant(" Button 2 "));
|
|
193
|
How do I show buttons for all cells in the column
ComboBox1->Columns->Add(L"Button")->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellHasButton,TVariant(true));
ComboBox1->Items->AddItem(TVariant(0));
ComboBox1->Items->AddItem(TVariant(1));
|
|
109
|
How do I show alternate rows in different background color
ComboBox1->BackColorAlternate = RGB(240,240,240);
ComboBox1->Columns->Add(L"Column");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("Item 1"));
var_Items->AddItem(TVariant("Item 2"));
var_Items->AddItem(TVariant("Item 3"));
var_Items->AddItem(TVariant("Item 4"));
var_Items->AddItem(TVariant("Item 5"));
|
|
559
|
How do I set an extra data for each item
// MouseMove event - Occurs when the user moves the mouse.
void __fastcall TForm1::ComboBox1MouseMove(TObject *Sender, short Button, short Shift, int X, int Y)
{
long i = ComboBox1->ItemFromPoint[-1,-1,c,hit];
OutputDebugString( L"i" );
OutputDebugString( PChar(ComboBox1->Items->get_ItemData(i)) );
}
ComboBox1->BeginUpdate();
ComboBox1->Columns->Add(L"Default");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->set_ItemData(var_Items->AddItem(TVariant("method 1")),TVariant("your extra data of method 1"));
var_Items->InsertItem(0,TVariant("your extra data of method 2"),TVariant("method 2"));
Excomboboxlib_tlb::IItemsPtr var_Items1 = ComboBox1->Items;
var_Items1->DefaultItem = var_Items1->AddItem(TVariant("method 3"));
var_Items1->set_ItemData(0,TVariant("your extra data of method 3"));
ComboBox1->EndUpdate();
|
|
286
|
How do I select an item
ComboBox1->Columns->Add(L"Default");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("Root 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->set_ExpandItem(h,true);
var_Items->set_SelectItem(h,true);
|
|
347
|
How do I select a value
ComboBox1->IntegralHeight = true;
ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exGroupLinesAtRoot;
ComboBox1->TreeColumnIndex = 1;
ComboBox1->Columns->Add(L"Column 1");
ComboBox1->Columns->Add(L"Column 2");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("Root 1.1"));
var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant("Root 1.2"));
var_Items->set_CellCaption(TVariant(var_Items->InsertItem(h,TNoParam(),TVariant("Child 1.1"))),TVariant(1),TVariant("Child 1.2"));
var_Items->set_CellCaption(TVariant(var_Items->InsertItem(h,TNoParam(),TVariant("Child 2.1"))),TVariant(1),TVariant("Child 2.2"));
var_Items->set_ExpandItem(h,true);
h = var_Items->AddItem(TVariant("Root 2.1"));
var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant("Root 2.2"));
var_Items->set_CellCaption(TVariant(var_Items->InsertItem(h,TNoParam(),TVariant("Child 1.1"))),TVariant(1),TVariant("Child 1.2"));
ComboBox1->Select[TVariant(1)] = TVariant("Root 1.2");
|
|
348
|
How do I select a value
ComboBox1->IntegralHeight = true;
ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exGroupLinesAtRoot;
ComboBox1->TreeColumnIndex = 1;
ComboBox1->Columns->Add(L"Column 1");
ComboBox1->Columns->Add(L"Column 2");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("Root 1.1"));
var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant("Root 1.2"));
var_Items->set_CellCaption(TVariant(var_Items->InsertItem(h,TNoParam(),TVariant("Child 1.1"))),TVariant(1),TVariant("Child 1.2"));
var_Items->set_CellCaption(TVariant(var_Items->InsertItem(h,TNoParam(),TVariant("Child 2.1"))),TVariant(1),TVariant("Child 2.2"));
var_Items->set_ExpandItem(h,true);
h = var_Items->AddItem(TVariant("Root 2.1"));
var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant("Root 2.2"));
var_Items->set_CellCaption(TVariant(var_Items->InsertItem(h,TNoParam(),TVariant("Child 1.1"))),TVariant(1),TVariant("Child 1.2"));
ComboBox1->set_Value(TVariant("Root 1.1"));
|
|
466
|
How do I select a NULL/empty value
ComboBox1->BeginUpdate();
ComboBox1->Style = Excomboboxlib_tlb::StyleEnum::DropDownList;
ComboBox1->Columns->Add(L"Items");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("Item 1"));
var_Items->AddItem(TVariant("Item 2"));
var_Items->AddItem(TVariant("Item 3"));
var_Items->AddItem(TVariant("Item 4"));
var_Items->DefaultItem = var_Items->InsertItem(TNoParam(),TNoParam(),TVariant(""));
var_Items->set_ItemPosition(0,0);
var_Items->set_SortableItem(0,false);
ComboBox1->set_Value(TVariant(""));
ComboBox1->EndUpdate();
|
|
114
|
How do I search case sensitive, using your incremental search feature
ComboBox1->AutoSearch = true;
ComboBox1->ASCIILower = L"";
Excomboboxlib_tlb::IColumnsPtr var_Columns = ComboBox1->Columns;
var_Columns->Add(L"exStartWith")->AutoSearch = Excomboboxlib_tlb::AutoSearchEnum::exStartWith;
var_Columns->Add(L"exContains")->AutoSearch = Excomboboxlib_tlb::AutoSearchEnum::exContains;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("text"))),TVariant(1),TVariant("another text"));
Excomboboxlib_tlb::IItemsPtr var_Items1 = ComboBox1->Items;
var_Items1->set_CellCaption(TVariant(var_Items1->AddItem(TVariant("text"))),TVariant(1),TVariant("another text"));
|
|
262
|
How do I retrieve the focused item
ComboBox1->Columns->Add(L"Default");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("Root 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->set_ExpandItem(h,true);
var_Items->set_ItemBold(var_Items->FocusItem,true);
|
|
345
|
How do I remove the drop down's border
ComboBox1->DropDownBorder = Excomboboxlib_tlb::AppearanceEnum::None2;
|
|
69
|
How do I remove the control's border
ComboBox1->Appearance = Excomboboxlib_tlb::AppearanceEnum::None2;
|
|
451
|
How do I prevent scrolling the control's data after user does the sort
ComboBox1->EnsureOnSort = false;
ComboBox1->Columns->Add(L"Column");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("Item 3"));
var_Items->AddItem(TVariant("Item 1"));
var_Items->AddItem(TVariant("Item 2"));
ComboBox1->PutItems(ComboBox1->GetItems(TVariant(0)),TNoParam());
ComboBox1->PutItems(ComboBox1->GetItems(TVariant(0)),TNoParam());
ComboBox1->PutItems(ComboBox1->GetItems(TVariant(0)),TNoParam());
ComboBox1->Columns->get_Item(TVariant(0))->SortOrder = Excomboboxlib_tlb::SortOrderEnum::SortAscending;
|
|
585
|
How do I prevent changing the cell's state ( check-box state )
// CellStateChanging event - Fired before cell's state is about to be changed.
void __fastcall TForm1::ComboBox1CellStateChanging(TObject *Sender, Excomboboxlib_tlb::HCELL Cell, long * NewState)
{
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
NewState = var_Items->get_CellState(TNoParam(),TVariant(Cell));
}
ComboBox1->BeginUpdate();
ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"P1");
var_Column->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
var_Column->PartialCheck = true;
Excomboboxlib_tlb::IColumnPtr var_Column1 = ComboBox1->Columns->Add(L"P2");
var_Column1->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
var_Column1->PartialCheck = true;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("Root"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->set_ExpandItem(h,true);
ComboBox1->EndUpdate();
|
|
77
|
How do I perform my own/custom sort, using my extra strings
ComboBox1->Columns->Add(L"desc")->SortType = Excomboboxlib_tlb::SortTypeEnum::SortUserData;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->set_CellData(TVariant(var_Items->AddItem(TVariant("A"))),TVariant(0),TVariant("C"));
var_Items->set_CellData(TVariant(var_Items->AddItem(TVariant("B"))),TVariant(0),TVariant("B"));
var_Items->set_CellData(TVariant(var_Items->AddItem(TVariant("C"))),TVariant(0),TVariant("A"));
var_Items->SortChildren(0,TVariant(0),false);
|
|
76
|
How do I perform my own/custom sort, using my extra numbers
ComboBox1->Columns->Add(L"desc")->SortType = Excomboboxlib_tlb::SortTypeEnum::SortUserData;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->set_CellData(TVariant(var_Items->AddItem(TVariant(0))),TVariant(0),TVariant(2));
var_Items->set_CellData(TVariant(var_Items->AddItem(TVariant(1))),TVariant(0),TVariant(1));
var_Items->set_CellData(TVariant(var_Items->AddItem(TVariant(2))),TVariant(0),TVariant(0));
var_Items->SortChildren(0,TVariant(0),false);
|
|
82
|
How do I perform my own sorting when user clicks the column's header
ComboBox1->SortOnClick = Excomboboxlib_tlb::SortOnClickEnum::exUserSort;
ComboBox1->Columns->Add(L"Column");
ComboBox1->Items->AddItem(TVariant("Item 1"));
ComboBox1->Items->AddItem(TVariant("Item 2"));
|
|
334
|
How do I lock or make read-only the control
ComboBox1->Locked = true;
ComboBox1->Columns->Add(L"Column");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("Item 3"));
var_Items->AddItem(TVariant("Item 1"));
var_Items->AddItem(TVariant("Item 2"));
|
|
331
|
How do I let user to resize the drop down window, at runtime
ComboBox1->AllowSizeGrip = true;
ComboBox1->Columns->Add(L"Column");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("Item 3"));
var_Items->AddItem(TVariant("Item 1"));
var_Items->AddItem(TVariant("Item 2"));
|
|
332
|
How do I let user to resize only the width of the drop down window, at runtime
ComboBox1->AllowSizeGrip = true;
ComboBox1->AllowVResize = false;
ComboBox1->Columns->Add(L"Column");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("Item 3"));
var_Items->AddItem(TVariant("Item 1"));
var_Items->AddItem(TVariant("Item 2"));
|
|
333
|
How do I let user to resize only the height of the drop down window, at runtime
ComboBox1->AllowSizeGrip = true;
ComboBox1->AllowHResize = false;
ComboBox1->MinWidthList = 100;
ComboBox1->MinHeightList = 100;
ComboBox1->Columns->Add(L"Column");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("Item 3"));
var_Items->AddItem(TVariant("Item 1"));
var_Items->AddItem(TVariant("Item 2"));
|
|
117
|
How do I let the tooltip being displayed longer
ComboBox1->ToolTipPopDelay = 10000;
ComboBox1->Columns->Add(L"tootip")->ToolTip = L"this is a tooltip assigned to a column";
|
|
153
|
How do I highlight in italic the numbers greater than a value
ComboBox1->ConditionalFormats->Add(L"%0 >= 10",TNoParam())->Italic = true;
ComboBox1->Columns->Add(L"Numbers");
ComboBox1->Items->AddItem(TVariant(1));
ComboBox1->Items->AddItem(TVariant(2));
ComboBox1->Items->AddItem(TVariant(10));
ComboBox1->Items->AddItem(TVariant(20));
|
|
154
|
How do I highlight in italic the numbers greater than a value
ComboBox1->ConditionalFormats->Add(L"%0 >= 10",TNoParam())->StrikeOut = true;
ComboBox1->Columns->Add(L"Numbers");
ComboBox1->Items->AddItem(TVariant(1));
ComboBox1->Items->AddItem(TVariant(2));
ComboBox1->Items->AddItem(TVariant(10));
ComboBox1->Items->AddItem(TVariant(20));
|
|
152
|
How do I highlight in bold the numbers greater than a value
ComboBox1->ConditionalFormats->Add(L"%0 >= 10",TNoParam())->Bold = true;
ComboBox1->Columns->Add(L"Numbers");
ComboBox1->Items->AddItem(TVariant(1));
ComboBox1->Items->AddItem(TVariant(2));
ComboBox1->Items->AddItem(TVariant(10));
ComboBox1->Items->AddItem(TVariant(20));
|
|
71
|
How do I hide the control's header bar
ComboBox1->HeaderVisible = false;
|
|
258
|
How do I get the parent item
ComboBox1->Columns->Add(L"Default");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("Root 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->set_ExpandItem(h,true);
var_Items->set_ItemBold(var_Items->get_ItemParent(var_Items->get_ItemChild(h)),true);
|
|
232
|
How do I get the number or count of items
ComboBox1->Columns->Add(L"Default");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("Root"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->set_ExpandItem(h,true);
Excomboboxlib_tlb::IItemsPtr var_Items1 = ComboBox1->Items;
var_Items1->AddItem(TVariant(var_Items1->ItemCount));
|
|
261
|
How do I get the number or count of child items
ComboBox1->Columns->Add(L"Default");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("Root 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->set_ExpandItem(h,true);
var_Items->AddItem(TVariant(var_Items->get_ChildCount(h)));
|
|
339
|
How do I get the handle of the drop down window
ComboBox1->Columns->Add(PChar(ComboBox1->hWndDropDown));
|
|
263
|
How do I get the handle of the cell
ComboBox1->Columns->Add(L"Default");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("Root 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->set_ExpandItem(h,true);
var_Items->set_CellBold(TNoParam(),TVariant(var_Items->get_ItemCell(h,TVariant(0))),true);
|
|
257
|
How do I get the first child item
ComboBox1->Columns->Add(L"Default");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("Root 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->set_ExpandItem(h,true);
var_Items->set_ItemBold(var_Items->get_ItemChild(h),true);
|
|
486
|
How do I get sorted the column as string, numeric, date, date and time. Also how can it be applied to drop down filter panel
ComboBox1->BeginUpdate();
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Date");
var_Column->SortType = Excomboboxlib_tlb::SortTypeEnum::SortDate;
var_Column->DisplayFilterButton = true;
var_Column->DisplayFilterPattern = false;
var_Column->DisplayFilterDate = true;
var_Column->FilterList = Excomboboxlib_tlb::FilterListEnum::exShowFocusItem | Excomboboxlib_tlb::FilterListEnum::exShowCheckBox | Excomboboxlib_tlb::FilterListEnum::exSortItemsDesc;
Excomboboxlib_tlb::IColumnPtr var_Column1 = ComboBox1->Columns->Add(L"DateTime");
var_Column1->SortType = Excomboboxlib_tlb::SortTypeEnum::SortDateTime;
var_Column1->DisplayFilterButton = true;
var_Column1->DisplayFilterPattern = false;
var_Column1->FilterList = Excomboboxlib_tlb::FilterListEnum::exShowFocusItem | Excomboboxlib_tlb::FilterListEnum::exShowCheckBox | Excomboboxlib_tlb::FilterListEnum::exSortItemsDesc;
Excomboboxlib_tlb::IColumnPtr var_Column2 = ComboBox1->Columns->Add(L"Time");
var_Column2->SortType = Excomboboxlib_tlb::SortTypeEnum::SortTime;
var_Column2->DisplayFilterButton = true;
var_Column2->DisplayFilterPattern = false;
var_Column2->FilterList = Excomboboxlib_tlb::FilterListEnum::exShowFocusItem | Excomboboxlib_tlb::FilterListEnum::exShowCheckBox | Excomboboxlib_tlb::FilterListEnum::exSortItemsDesc;
var_Column2->FormatColumn = L"time(value)";
Excomboboxlib_tlb::IColumnPtr var_Column3 = ComboBox1->Columns->Add(L"Numeric");
var_Column3->SortType = Excomboboxlib_tlb::SortTypeEnum::SortNumeric;
var_Column3->DisplayFilterButton = true;
var_Column3->FilterList = Excomboboxlib_tlb::FilterListEnum::exShowFocusItem | Excomboboxlib_tlb::FilterListEnum::exShowCheckBox | Excomboboxlib_tlb::FilterListEnum::exSortItemsDesc;
Excomboboxlib_tlb::IColumnPtr var_Column4 = ComboBox1->Columns->Add(L"String");
var_Column4->DisplayFilterButton = true;
var_Column4->FilterList = Excomboboxlib_tlb::FilterListEnum::exShowFocusItem | Excomboboxlib_tlb::FilterListEnum::exShowCheckBox | Excomboboxlib_tlb::FilterListEnum::exSortItemsDesc;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant(TDateTime(2010,1,27).operator double()));
var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant(TDateTime(2010,1,27,10,00,00,0).operator double()));
var_Items->set_CellCaption(TVariant(h),TVariant(2),TVariant(var_Items->get_CellCaption(TVariant(h),TVariant(1))));
var_Items->set_CellCaption(TVariant(h),TVariant(3),TVariant(1));
var_Items->set_CellCaption(TVariant(h),TVariant(4),TVariant(var_Items->get_CellCaption(TVariant(h),TVariant(3))));
h = var_Items->AddItem(TVariant(TDateTime(2011,1,27).operator double()));
var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant(TDateTime(2011,1,27,9,00,00,0).operator double()));
var_Items->set_CellCaption(TVariant(h),TVariant(2),TVariant(var_Items->get_CellCaption(TVariant(h),TVariant(1))));
var_Items->set_CellCaption(TVariant(h),TVariant(3),TVariant(11));
var_Items->set_CellCaption(TVariant(h),TVariant(4),TVariant(var_Items->get_CellCaption(TVariant(h),TVariant(3))));
h = var_Items->AddItem(TVariant(TDateTime(2010,11,2).operator double()));
var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant(TDateTime(2010,11,2,9,00,00,0).operator double()));
var_Items->set_CellCaption(TVariant(h),TVariant(2),TVariant(var_Items->get_CellCaption(TVariant(h),TVariant(1))));
var_Items->set_CellCaption(TVariant(h),TVariant(3),TVariant(2));
var_Items->set_CellCaption(TVariant(h),TVariant(4),TVariant(var_Items->get_CellCaption(TVariant(h),TVariant(3))));
ComboBox1->Columns->get_Item(TVariant("DateTime"))->DisplayFilterDate = false;
ComboBox1->EndUpdate();
|
|
96
|
How do I get ride of the rectangle arround focused item
ComboBox1->ShowFocusRect = false;
ComboBox1->Columns->Add(L"Column");
ComboBox1->Items->AddItem(TVariant(0));
ComboBox1->Items->AddItem(TVariant(1));
|
|
470
|
How do I get notified once the user changes the Filter For field
// EditChange event - Fired when the user has taken an action that may have altered text in an edit control.
void __fastcall TForm1::ComboBox1EditChange(TObject *Sender, long ColIndex)
{
OutputDebugString( L"ColIndex: " );
OutputDebugString( L"ColIndex" );
OutputDebugString( L"Label: " );
OutputDebugString( ComboBox1->EditText[TVariant(0)] );
OutputDebugString( L"FilterFor: " );
OutputDebugString( ComboBox1->EditText[TVariant(-1)] );
}
ComboBox1->BeginUpdate();
ComboBox1->FilterForVisible = true;
ComboBox1->FilterForBackColor = RGB(240,240,240);
ComboBox1->IntegralHeight = true;
ComboBox1->Columns->Add(L"Default");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("Item 1"));
var_Items->AddItem(TVariant("Item 2"));
var_Items->AddItem(TVariant("Item 3"));
var_Items->AddItem(TVariant("Item 4"));
var_Items->AddItem(TVariant("Item 5"));
ComboBox1->EndUpdate();
|
|
547
|
How do I get a list of interfaces the object implemenets
ComboBox1->BeginUpdate();
ComboBox1->ColumnAutoResize = false;
/*
Select the Component\Import Component...\Import a Type Library,
to import the following Type Library:
Microsoft Office 15.0 Access database engine Object Library
TypeLib: ACEDAO.DLL
to define the namespace: Dao_tlb
*/
//#include "DAO_TLB.h"
Dao_tlb::_DBEnginePtr var_PrivDBEngine = Variant::CreateObject(L"DAO.DBEngine.120");
Dao_tlb::Recordset2Ptr rs = var_PrivDBEngine->OpenDatabase(L"C:\\Program Files\\Exontrol\\ExComboBox\\Sample\\Access\\sample.accdb",TNoParam(),TNoParam(),TNoParam())->OpenRecordset(L"Orders",TNoParam(),TNoParam(),TNoParam());
OutputDebugString( Variant::CreateObject(L"Exontrol.PropertiesList")->get_Interfaces(rs)->get_Interfaces(rs) );
ComboBox1->DataSource = (IDispatch*)rs;
ComboBox1->set_Value(TVariant(10248));
ComboBox1->EndUpdate();
|
|
287
|
How do I find the selected item
ComboBox1->Columns->Add(L"Default");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("Root 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->set_ExpandItem(h,true);
var_Items->set_SelectItem(h,true);
var_Items->set_ItemBold(var_Items->get_SelectedItem(0),true);
|
|
294
|
How do I find the index of the item based on its handle
ComboBox1->Columns->Add(L"Default");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("Root 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->set_ExpandItem(h,true);
var_Items->set_ItemBold(var_Items->get_ItemByIndex(var_Items->get_ItemToIndex(h)),true);
|
|
293
|
How do I find the handle of the item based on its index
ComboBox1->Columns->Add(L"Default");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("Root 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->set_ExpandItem(h,true);
var_Items->set_ItemBold(var_Items->get_ItemByIndex(1),true);
|
|
297
|
How do I find an item based on a path
ComboBox1->Columns->Add(L"Default");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("Root 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->set_ItemData(var_Items->InsertItem(h,TNoParam(),TVariant("Child 2")),TVariant(1234));
var_Items->set_ExpandItem(h,true);
var_Items->set_ItemBold(var_Items->get_FindPath(L"Root 1\\Child 1"),true);
|
|
296
|
How do I find an item
ComboBox1->Columns->Add(L"Default");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("Root 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->set_ExpandItem(h,true);
var_Items->set_ItemBold(var_Items->get_FindItem(TVariant("Child 2"),TVariant(0),TNoParam()),true);
|
|
107
|
How do I filter programatically the control
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Column");
var_Column->DisplayFilterButton = true;
var_Column->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exPattern;
var_Column->Filter = L"Item*";
ComboBox1->Items->AddItem(TVariant("Item 1"));
ComboBox1->Items->AddItem(TVariant(""));
ComboBox1->Items->AddItem(TVariant("Item 2"));
ComboBox1->ApplyFilter();
|
|
63
|
How do I filter for items that match exactly the specified string
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Column");
var_Column->DisplayFilterButton = true;
var_Column->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exFilter;
var_Column->Filter = L"Item 1";
ComboBox1->Items->AddItem(TVariant("Item 1"));
ComboBox1->Items->AddItem(TVariant("Item 2"));
ComboBox1->Items->AddItem(TVariant("Item 3"));
ComboBox1->ApplyFilter();
|
|
234
|
How do I expand or collapse an item
ComboBox1->Columns->Add(L"Default");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("Root"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->set_ExpandItem(h,true);
|
|
123
|
How do I expand automatically the items while user types characters to searching for something ( incremental searching )
ComboBox1->ExpandOnSearch = true;
ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exLinesAtRoot;
ComboBox1->AutoSearch = true;
ComboBox1->Columns->Add(L"Column")->AutoSearch = Excomboboxlib_tlb::AutoSearchEnum::exContains;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->InsertItem(var_Items->InsertItem(var_Items->AddItem(TVariant("text")),TNoParam(),TVariant("some text")),TNoParam(),TVariant("another text"));
var_Items->InsertItem(var_Items->InsertItem(var_Items->AddItem(TVariant("text")),TNoParam(),TVariant("some text")),TNoParam(),TVariant("another text"));
|
|
260
|
How do I enumerate the visible items
ComboBox1->Columns->Add(L"Default");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("Root 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->set_ExpandItem(h,true);
h = var_Items->AddItem(TVariant("Root 2"));
var_Items->set_ItemBold(var_Items->FirstVisibleItem,true);
var_Items->set_ItemBold(var_Items->get_NextVisibleItem(var_Items->FirstVisibleItem),true);
|
|
259
|
How do I enumerate the siblings items
ComboBox1->Columns->Add(L"Default");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("Root 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->set_ExpandItem(h,true);
h = var_Items->AddItem(TVariant("Root 2"));
var_Items->set_ItemBold(var_Items->get_NextSiblingItem(var_Items->FirstVisibleItem),true);
var_Items->set_ItemBold(var_Items->get_PrevSiblingItem(var_Items->get_NextSiblingItem(var_Items->FirstVisibleItem)),true);
|
|
256
|
How do I enumerate the root items
ComboBox1->Columns->Add(L"Default");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("Root 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->set_ExpandItem(h,true);
h = var_Items->AddItem(TVariant("Root 2"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->set_ItemBold(var_Items->get_RootItem(0),true);
var_Items->set_ItemUnderline(var_Items->get_RootItem(1),true);
|
|
40
|
How do I ensure that the focused item is visible, after the user does the sort
ComboBox1->EnsureOnSort = true;
ComboBox1->Columns->Add(L"Column");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("Item 3"));
var_Items->AddItem(TVariant("Item 1"));
var_Items->AddItem(TVariant("Item 2"));
ComboBox1->PutItems(ComboBox1->GetItems(TVariant(0)),TNoParam());
ComboBox1->PutItems(ComboBox1->GetItems(TVariant(0)),TNoParam());
ComboBox1->PutItems(ComboBox1->GetItems(TVariant(0)),TNoParam());
ComboBox1->Columns->get_Item(TVariant(0))->SortOrder = Excomboboxlib_tlb::SortOrderEnum::SortAscending;
|
|
108
|
How do I enlarge the drop down filter window
ComboBox1->FilterBarDropDownHeight = "-320";
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Column");
var_Column->DisplayFilterButton = true;
var_Column->FilterBarDropDownWidth = "-320";
ComboBox1->Items->AddItem(TVariant("Item 1"));
ComboBox1->Items->AddItem(TVariant("Item 2"));
|
|
165
|
How do I enlarge or change the size of the control's scrollbars
ComboBox1->ScrollHeight = 18;
ComboBox1->ScrollWidth = 18;
ComboBox1->ScrollButtonWidth = 18;
ComboBox1->ScrollButtonHeight = 18;
|
|
112
|
How do I enable the incremental search feature within a column
ComboBox1->AutoSearch = true;
Excomboboxlib_tlb::IColumnsPtr var_Columns = ComboBox1->Columns;
var_Columns->Add(L"exStartWith")->AutoSearch = Excomboboxlib_tlb::AutoSearchEnum::exStartWith;
var_Columns->Add(L"exContains")->AutoSearch = Excomboboxlib_tlb::AutoSearchEnum::exContains;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("text"))),TVariant(1),TVariant("another text"));
Excomboboxlib_tlb::IItemsPtr var_Items1 = ComboBox1->Items;
var_Items1->set_CellCaption(TVariant(var_Items1->AddItem(TVariant("text"))),TVariant(1),TVariant("another text"));
|
|
138
|
How do I enable resizing the columns at runtime
ComboBox1->ColumnsAllowSizing = true;
ComboBox1->MarkSearchColumn = false;
ComboBox1->HeaderVisible = false;
ComboBox1->Columns->Add(L"Column 1");
ComboBox1->Columns->Add(L"Column 2");
ComboBox1->DrawGridLines = Excomboboxlib_tlb::GridLinesEnum::exVLines;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Item 1"))),TVariant(1),TVariant("Sub Item 1"));
Excomboboxlib_tlb::IItemsPtr var_Items1 = ComboBox1->Items;
var_Items1->set_CellCaption(TVariant(var_Items1->AddItem(TVariant("Item 2"))),TVariant(1),TVariant("Sub Item 2"));
|
|
351
|
How do I enable resizing all the items at runtime
ComboBox1->ItemsAllowSizing = Excomboboxlib_tlb::ItemsAllowSizingEnum::exResizeAllItems;
ComboBox1->DrawGridLines = Excomboboxlib_tlb::GridLinesEnum::exHLines;
ComboBox1->Columns->Add(L"Column");
ComboBox1->Items->AddItem(TVariant("Item 1"));
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->set_ItemHeight(var_Items->AddItem(TVariant("Item 2")),48);
ComboBox1->Items->AddItem(TVariant("Item 3"));
|
|
137
|
How do I enable resizing ( changing the height ) the items at runtime
ComboBox1->ItemsAllowSizing = Excomboboxlib_tlb::ItemsAllowSizingEnum::exResizeItem;
ComboBox1->ScrollBySingleLine = true;
ComboBox1->Columns->Add(L"Column");
ComboBox1->Items->AddItem(TVariant("Item 1"));
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->set_ItemHeight(var_Items->AddItem(TVariant("Item 2")),48);
ComboBox1->Items->AddItem(TVariant("Item 3"));
|
|
180
|
How do I enable or disable the entire column
ComboBox1->Columns->Add(L"C1");
ComboBox1->Columns->Add(L"Disabled")->Enabled = false;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant(0))),TVariant(1),TVariant("0.1"));
Excomboboxlib_tlb::IItemsPtr var_Items1 = ComboBox1->Items;
var_Items1->set_CellCaption(TVariant(var_Items1->AddItem(TVariant(1))),TVariant(1),TVariant("1.1"));
|
|
268
|
How do I enable or disable a cell
ComboBox1->Columns->Add(L"C1");
ComboBox1->Columns->Add(L"C2");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("Cell 1"));
var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant("Cell 2"));
var_Items->set_CellEnabled(TVariant(h),TVariant(1),false);
|
|
553
|
How do I display the position of the item with 0-padding
ComboBox1->BeginUpdate();
ComboBox1->Columns->Add(L"Items")->FormatColumn = L"((1 apos ``) lpad `00`) + `. ` + value";
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("Item A"));
var_Items->AddItem(TVariant("Item B"));
var_Items->AddItem(TVariant("Item C"));
var_Items->AddItem(TVariant("Item D"));
ComboBox1->EndUpdate();
|
|
349
|
How do I display the icons being selected in the control's label
ComboBox1->Images(TVariant(String("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq") +
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="));
ComboBox1->Columns->Add(L"Column");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->set_CellImage(TVariant(var_Items->AddItem(TVariant("Image 1"))),TVariant(0),1);
var_Items->set_CellImage(TVariant(var_Items->AddItem(TVariant("Image 2"))),TVariant(0),2);
var_Items->set_CellImage(TVariant(var_Items->AddItem(TVariant("Image 3"))),TVariant(0),3);
ComboBox1->AssignEditImageOnSelect[0] = true;
ComboBox1->set_Value(TVariant("Image 2"));
|